100 PRINT"[147]";CHR$(142);CHR$(8);:POKE53281,1:POKE53280,1
101 POKE788,52:REM DISABLE RUN/STOP
110 PRINT"                                        ";
120 PRINT"               [146][223][169]   [223][146][223][169][169]             ";
130 PRINT"                [165]  [146][169][169][223][146][223]             ";
140 PRINT"                                        "
150 V=53248:POKE2040,13:POKE2041,13:FORI=832TO894:POKEI,255:NEXT:POKEV+27,3
160 POKEV+21,3:POKEV+39,2:POKEV+40,2:POKEV,144:POKEV+1,54:POKEV+2,192:POKEV+3,54
170 POKEV+29,3
180 FORI=0TO23:READA:POKE679+I,A:POKEV+39,A:POKEV+40,A:NEXT
185 DATA169,251,166,254,164,255,32,216,255,133,253,96
187 DATA169,0,166,251,164,252,32,213,255,133,253,96
190 POKEV+39,7:POKEV+40,7
200 PRINT"[156][144]   A FAILSAFE MACHINE LANGUAGE EDITOR"
210 PRINT"[152][145][145]STARTING ADDRESS?        [157][157][157][157][157][157][157][157][157]";:INPUTS:F=1-F:C$=CHR$(31+119*F)
220 IFS<256OR(S>40960ANDS<49152)ORS>53247THENGOSUB3000:GOTO210
225 PRINT:PRINT:PRINT
230 PRINT"[152][145][145]ENDING ADDRESS?        [157][157][157][157][157][157][157][157][157]";:INPUTE:F=1-F:C$=CHR$(31+119*F)
240 IFE<256OR(E>40960ANDE<49152)ORE>53247THENGOSUB3000:GOTO230
250 IFE<STHENPRINTC$;"ENDING < START  ":GOSUB1000:GOTO230
260 PRINT:PRINT:PRINT
300 PRINT"[147]";CHR$(14):AD=S:POKEV+21,0
310 PRINTRIGHT$("0000"+MID$(STR$(AD),2),5);":";:FORJ=1TO6
320 GOSUB570:IFN=-1THENJ=J+N:GOTO320
390 IFN=-211THEN710
400 IFN=-204THEN790
410 IFN=-206THENPRINT:INPUT"[197]NTER [206]EW [193]DDRESS";ZZ
415 IFN=-206THENIFZZ<SORZZ>ETHENPRINT"OUT OF RANGE":GOSUB1000:GOTO410
417 IFN=-206THENAD=ZZ:PRINT:GOTO310
420 IFN<>-196THEN480
430 PRINT:INPUT"[196]ISPLAY:[198]ROM";F:PRINT,"[212]O";:INPUTT
440 IFF<SORF>EORT<SORT>ETHENPRINT"[193]T LEAST";S;"[157], NOT MORE THAN";E:GOTO430
450 FORI=FTOTSTEP6:PRINT:PRINTRIGHT$("0000"+MID$(STR$(I),2),5);":";
451 FORK=0TO5:N=PEEK(I+K):PRINTRIGHT$("00"+MID$(STR$(N),2),3);",";
460 GETA$:IFA$>""THENPRINT:PRINT:GOTO310
470 NEXTK:PRINTCHR$(20);:NEXTI:PRINT:PRINT:GOTO310
480 IFN<0THENPRINT:GOTO310
490 A(J)=N:NEXTJ
500 CKSUM=AD-INT(AD/256)*256:FORI=1TO6:CKSUM=(CKSUM+A(I))AND255:NEXT
510 PRINTCHR$(18);:GOSUB570:PRINTCHR$(20)
515 IFN=CKSUMTHEN530
520 PRINT:PRINT"[204]INE [197]NTERED [215]RONG : [210]E-ENTER":PRINT:GOSUB1000:GOTO310
530 GOSUB2000
540 FORI=1TO6:POKEAD+I-1,A(I):NEXT:POKE54272,0:POKE54273,0
550 AD=AD+6:IFAD<ETHEN310
560 GOTO710
570 N=0:Z=0
580 PRINT"[166]";
581 GETA$:IFA$=""THEN581
585 PRINTCHR$(20);:A=ASC(A$):IFA=13ORA=44ORA=32THEN670
590 IFA>128THENN=-A:RETURN
600 IFA<>20THEN630
610 GOSUB690:IFI=1ANDT=44THENN=-1:PRINT"[157] [157]";:GOTO690
620 GOTO570
630 IFA<48ORA>57THEN580
640 PRINTA$;:N=N*10+A-48
650 IFN>255THENA=20:GOSUB1000:GOTO600
660 Z=Z+1:IFZ<3THEN580
670 IFZ=0THENGOSUB1000:GOTO570
680 PRINT",";:RETURN
690 S%=PEEK(209)+256*PEEK(210)+PEEK(211)
691 FORI=1TO3:T=PEEK(S%-I)
695 IFT<>44ANDT<>58THENPOKES%-I,32:NEXT
700 PRINTLEFT$("[157][157][157]",I-1);:RETURN
710 PRINT"[147]*** [211]AVE ***"
720 INPUT" [198]ILENAME";F$
730 PRINT:PRINT"[212][146]APE OR [196][146]ISK: ([212]/[196])"
740 GETA$:IFA$<>"T"ANDA$<>"D"THEN740
750 DV=1-7*(A$="D"):IFDV=8THENF$="0:"+F$
760 OPEN1,DV,1,F$:POKE252,S/256:POKE251,S-PEEK(252)*256
765 POKE255,E/256:POKE254,E-PEEK(255)*256
770 POKE253,10:SYS679:CLOSE1:IFPEEK(253)>9ORPEEK(253)=0THENPRINT"[196]ONE.":END
780 PRINT"[197]RROR ON [211]AVE.  [212]RY AGAIN.":IFDV=1THEN720
781 OPEN15,8,15:INPUT#15,DS,DS$:PRINTDS;DS$:CLOSE15:GOTO720
790 PRINT"[147]*** [204]OAD ***"
800 INPUT" [198]ILENAME";F$
810 PRINT:PRINT"[212][146]APE OR [196][146]ISK: ([212]/[196])"
820 GETA$:IFA$<>"T"ANDA$<>"D"THEN820
830 DV=1-7*(A$="D"):IFDV=8THENF$="0:"+F$
840 OPEN1,DV,0,F$:POKE252,S/256:POKE251,S-PEEK(252)*256
850 POKE253,10:SYS691:CLOSE1
860 IFPEEK(253)>9ORPEEK(253)=0THENPRINT:PRINT:GOTO310
870 PRINT"[197]RROR ON [204]OAD.  [212]RY AGAIN.":IFDV=1THEN800
880 OPEN15,8,15:INPUT#15,DS,DS$:PRINTDS;DS$:CLOSE15:GOTO800
1000 REM BUZZER
1001 POKE54296,15:POKE54277,45:POKE54278,165
1002 POKE54276,33:POKE54273,6:POKE54272,5
1003 FORT=1TO200:NEXT:POKE54276,32:POKE54273,0:POKE54272,0:RETURN
2000 REM BELL SOUND
2001 POKE54296,15:POKE54277,0:POKE54278,247
2002 POKE54276,17:POKE54273,40:POKE54272,0
2003 FORT=1TO100:NEXT:POKE54276,16:RETURN
3000 PRINTC$;"NOT ZERO PAGE OR ROM":GOTO1000